home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / gfa / mnt_fnc2 / compose.lst next >
Encoding:
File List  |  1993-10-24  |  478 b   |  22 lines
  1. > PROCEDURE compose(numero$)
  2.   LOCAL i%,j%,nombre.impulsions%
  3.   numero$="1"+numero$
  4.   OUT 1,27,57,103
  5.   FOR i%=1 TO LEN(numero$)
  6.     IF LEFT$(numero$,3)="116" AND i%=4
  7.       PAUSE 50*2
  8.     ENDIF
  9.     nombre.impulsions%=VAL(MID$(numero$,i%,1))
  10.     IF nombre.impulsions%=0
  11.       nombre.impulsions%=10
  12.     ENDIF
  13.     FOR j%=1 TO nombre.impulsions%
  14.       OUT 1,27,57,103
  15.       PAUSE 5
  16.       OUT 1,27,57,104
  17.       PAUSE 2
  18.     NEXT j%
  19.     PAUSE 40
  20.   NEXT i%
  21. RETURN
  22.